home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / threed.arc / SADDLE.F77 < prev    next >
Encoding:
Text File  |  1986-03-28  |  896 b   |  40 lines
  1.     PROGRAM THREED
  2. C
  3. C Program to plot a three dimensional saddle function with hidden-lines removed
  4. C
  5.     COMMON ANGA, ANGB, HV, D
  6.     COMMON DL, DM, DN, CX, CY, CZ, QX, QY, QZ, DD
  7. C
  8.     REAL X1, Y1, DX, DY
  9.     DATA X1, Y1, DX, DY /-4.0, -4.0, 0.5, 0.5/
  10.     INTEGER NX, NY
  11.     DATA NX, NY /17, 17/
  12.     REAL ADEG, BDEG
  13.     DATA ADEG, BDEG /60.0, 30.0/
  14. C
  15.     REAL A(100, 100)
  16. C
  17.     WRITE(6,100)
  18. 100    FORMAT(1X,'INPUT TILT AND ROTATION ANGLES ')
  19.     READ(5,*)ADEG,BDEG
  20. C200    FORMAT(2F10.2)
  21.  
  22.     PI = 3.141593
  23.     ANGA = ADEG * PI / 180.0
  24.     ANGB = BDEG * PI / 180.0
  25.     HV = 5.0
  26.     X = X1
  27.     DO 129 I = 1, NX
  28.         XSQR = X * X
  29.         Y = Y1
  30.         DO 119 J = 1, NY
  31.         A(I,J) = XSQR - Y * Y + 4.0
  32.         Y = Y + DY
  33. 119        CONTINUE
  34.         X = X + DX
  35. 129    CONTINUE
  36.     CALL THREED(A, NY, NY, 3)
  37.     CALL    PICSIZ(0.,0.)
  38.     STOP
  39.     END
  40.